object Base: TBase
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Height = 491
  Width = 861
  object cliente: TADOTable
    Connection = Sistema
    CursorType = ctStatic
    TableName = 'cliente'
    Left = 55
    Top = 24
    object clienteId: TIntegerField
      FieldName = 'Id'
    end
    object clienteCodigo: TStringField
      FieldName = 'Codigo'
      Size = 5
    end
    object clienteNome: TStringField
      FieldName = 'Nome'
      Size = 50
    end
    object clienteConjuje: TStringField
      FieldName = 'Conjuje'
      Size = 50
    end
    object clienteEndereco: TStringField
      FieldName = 'Endereco'
      Size = 50
    end
    object clienteCidade: TStringField
      FieldName = 'Cidade'
      Size = 40
    end
    object clienteBairro: TStringField
      FieldName = 'Bairro'
      Size = 30
    end
    object clienteTelefone: TStringField
      FieldName = 'Telefone'
      EditMask = '(00)0000-0000'
      Size = 14
    end
    object clienteCelular: TStringField
      FieldName = 'Celular'
      EditMask = '(00)0000-0000'
      Size = 14
    end
    object clienteEmpresa: TStringField
      FieldName = 'Empresa'
      Size = 50
    end
    object clienteEnderecotrabalho: TStringField
      FieldName = 'Enderecotrabalho'
      Size = 50
    end
    object clienteCidadetrabalho: TStringField
      FieldName = 'Cidadetrabalho'
      Size = 40
    end
    object clienteBairrotrabalho: TStringField
      FieldName = 'Bairrotrabalho'
      Size = 30
    end
    object clienteRG: TStringField
      FieldName = 'RG'
      Size = 30
    end
    object clienteIdentificacao: TStringField
      FieldName = 'Identificacao'
      Size = 40
    end
    object clienteRemuneracao: TFloatField
      FieldName = 'Remuneracao'
      DisplayFormat = '0.00'
    end
    object clienteDependente: TStringField
      FieldName = 'Dependente'
      Size = 2
    end
    object clienteNomedependente: TStringField
      FieldName = 'Nomedependente'
      Size = 50
    end
    object clienteReferencia: TStringField
      FieldName = 'Referencia'
      Size = 50
    end
    object clienteNascimento: TStringField
      FieldName = 'Nascimento'
      EditMask = '00/00/0000'
      Size = 10
    end
    object clienteProfissao: TStringField
      FieldName = 'Profissao'
      Size = 40
    end
    object clienteApelido: TStringField
      FieldName = 'Apelido'
      Size = 30
    end
    object clienteLimitecompra: TFloatField
      FieldName = 'Limitecompra'
      DisplayFormat = '0.00'
    end
    object clienteEstadocivil: TStringField
      FieldName = 'Estadocivil'
    end
    object clienteEstado: TStringField
      FieldName = 'Estado'
      Size = 2
    end
    object clienteSexo: TStringField
      FieldName = 'Sexo'
      Size = 1
    end
    object clienteNUMERO: TStringField
      FieldName = 'NUMERO'
      Size = 4
    end
    object clienteTELEFONETRABALHO: TStringField
      FieldName = 'TELEFONETRABALHO'
      EditMask = '(00)0000-0000'
      Size = 14
    end
    object clienteEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 40
    end
    object clienteCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 30
    end
    object clienteNUMEROTRABALHO: TStringField
      FieldName = 'NUMEROTRABALHO'
      Size = 4
    end
    object clienteUFTRABALHO: TStringField
      FieldName = 'UFTRABALHO'
      Size = 2
    end
    object clienteREFERENCIAENDERECO: TStringField
      FieldName = 'REFERENCIAENDERECO'
      Size = 30
    end
    object clienteCEP: TStringField
      FieldName = 'CEP'
      EditMask = '00000-000'
      Size = 9
    end
    object clienteCPF: TStringField
      DisplayWidth = 14
      FieldName = 'CPF'
      EditMask = '000.000.000-00'
      Size = 14
    end
    object clienteativo: TStringField
      FieldName = 'ativo'
      Size = 10
    end
    object clientepai: TStringField
      FieldName = 'pai'
      Size = 50
    end
    object clientemae: TStringField
      FieldName = 'mae'
      Size = 50
    end
  end
  object DSCLIENTE: TDataSource
    DataSet = cliente
    Left = 135
    Top = 24
  end
  object DSPRODUTO: TDataSource
    DataSet = produtos
    Left = 136
    Top = 80
  end
  object produtos: TADOTable
    Connection = Sistema
    CursorType = ctStatic
    TableName = 'produto'
    Left = 55
    Top = 80
    object produtosId: TIntegerField
      FieldName = 'Id'
    end
    object produtosCodigo: TStringField
      FieldName = 'Codigo'
      Size = 5
    end
    object produtosDescricao: TStringField
      FieldName = 'Descricao'
      Size = 50
    end
    object produtosMarca: TStringField
      FieldName = 'Marca'
      Size = 40
    end
    object produtosModelo: TStringField
      FieldName = 'Modelo'
      Size = 40
    end
    object produtosCor: TStringField
      FieldName = 'Cor'
      Size = 30
    end
    object produtosDatareajuste: TStringField
      FieldName = 'Datareajuste'
      EditMask = '00/00/0000'
      Size = 10
    end
    object produtosVenda: TFloatField
      FieldName = 'Venda'
      DisplayFormat = '0.00'
    end
    object produtosAtivo: TStringField
      FieldName = 'Ativo'
      Size = 10
    end
    object produtosReajuste: TStringField
      FieldName = 'Reajuste'
      Size = 10
    end
    object produtosCategoria: TStringField
      FieldName = 'Categoria'
      Size = 30
    end
  end
  object DSCATEGORIA: TDataSource
    DataSet = Categoria
    Left = 135
    Top = 144
  end
  object Sistema: TADOConnection
    DefaultDatabase = 'SISTEMA'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    BeforeConnect = SistemaBeforeConnect
    Left = 304
    Top = 16
  end
  object Categoria: TADOTable
    Connection = Sistema
    CursorType = ctStatic
    TableName = 'categoria'
    Left = 56
    Top = 144
    object Categoriacategoria: TStringField
      FieldName = 'categoria'
      Size = 30
    end
  end
  object venda: TADOTable
    Connection = Sistema
    CursorType = ctStatic
    IndexFieldNames = 'cpf'
    MasterFields = 'CPF'
    MasterSource = DSCLIENTE
    TableName = 'venda'
    Left = 55
    Top = 200
    object vendaid: TIntegerField
      FieldName = 'id'
    end
    object vendaNome: TStringField
      FieldName = 'Nome'
      Size = 50
    end
    object vendaParcelas: TIntegerField
      FieldName = 'Parcelas'
    end
    object vendaDias: TIntegerField
      FieldName = 'Dias'
    end
    object vendaDatavenda: TStringField
      FieldName = 'Datavenda'
      EditMask = '00/00/0000'
      Size = 10
    end
    object vendacpf: TStringField
      FieldName = 'cpf'
      EditMask = '000.000.000-00'
      Size = 14
    end
    object vendaendereco: TStringField
      FieldName = 'endereco'
      Size = 50
    end
    object vendabairro: TStringField
      FieldName = 'bairro'
      Size = 30
    end
    object vendacidade: TStringField
      FieldName = 'cidade'
      Size = 40
    end
    object vendaestado: TStringField
      FieldName = 'estado'
      Size = 2
    end
    object vendatelefone: TStringField
      FieldName = 'telefone'
      EditMask = '(00)0000-0000'
      Size = 14
    end
    object vendacelular: TStringField
      FieldName = 'celular'
      EditMask = '(00)0000-0000'
      Size = 14
    end
    object vendanumero: TStringField
      FieldName = 'numero'
      Size = 4
    end
    object vendavalorvenda: TFloatField
      FieldName = 'valorvenda'
      DisplayFormat = '0.00'
    end
    object vendaCodcliente: TStringField
      FieldName = 'Codcliente'
      Size = 5
    end
    object vendaimprimir: TStringField
      FieldName = 'imprimir'
      Size = 1
    end
    object vendaPedido: TStringField
      FieldName = 'Pedido'
      Size = 9
    end
  end
  object detalvenda: TADOTable
    Connection = Sistema
    CursorType = ctStatic
    IndexFieldNames = 'Pedido;cpf'
    MasterFields = 'Pedido;cpf'
    MasterSource = DSVENDA
    TableName = 'detalhevenda'
    Left = 55
    Top = 256
    object detalvendaid: TIntegerField
      FieldName = 'id'
    end
    object detalvendaCodigoproduto: TStringField
      FieldName = 'Codigoproduto'
      Size = 5
    end
    object detalvendaNomeproduto: TStringField
      FieldName = 'Nomeproduto'
      Size = 50
    end
    object detalvendaQuantidade: TIntegerField
      FieldName = 'Quantidade'
    end
    object detalvendaValor: TFloatField
      FieldName = 'Valor'
      DisplayFormat = '0.00'
    end
    object detalvendacpf: TStringField
      FieldName = 'cpf'
      EditMask = '000.000.000-00'
      Size = 14
    end
    object detalvendatotal: TFloatField
      FieldName = 'total'
      DisplayFormat = '0.00'
    end
    object detalvendaMarca: TStringField
      FieldName = 'Marca'
      Size = 40
    end
    object detalvendaModelo: TStringField
      FieldName = 'Modelo'
      Size = 40
    end
    object detalvendaCor: TStringField
      FieldName = 'Cor'
      Size = 30
    end
    object detalvendadatavenda: TStringField
      FieldName = 'datavenda'
      Size = 10
    end
    object detalvendaPedido: TStringField
      FieldName = 'Pedido'
      Size = 9
    end
  end
  object DSDETALHEVENDA: TDataSource
    DataSet = detalvenda
    Left = 135
    Top = 256
  end
  object DSVENDA: TDataSource
    DataSet = venda
    Left = 135
    Top = 200
  end
  object Comando: TADOQuery
    Connection = Sistema
    Parameters = <>
    SQL.Strings = (
      'delete  from detalhevenda')
    Left = 304
    Top = 72
  end
  object Parcela: TADOTable
    Connection = Sistema
    CursorType = ctStatic
    Filtered = True
    OnFilterRecord = ParcelaFilterRecord
    IndexFieldNames = 'Pedido;cpf'
    TableName = 'parcelas'
    Left = 55
    Top = 304
    object Parcelaid: TIntegerField
      FieldName = 'id'
    end
    object ParcelaCodigocliente: TStringField
      FieldName = 'Codigocliente'
      Size = 5
    end
    object ParcelaCodigovenda: TStringField
      FieldName = 'Codigovenda'
      Size = 5
    end
    object ParcelaVencimento: TStringField
      FieldName = 'Vencimento'
      EditMask = '00/00/0000'
      Size = 10
    end
    object ParcelaParcela: TIntegerField
      FieldName = 'Parcela'
    end
    object ParcelaValor: TFloatField
      FieldName = 'Valor'
      DisplayFormat = '0.00'
    end
    object ParcelaMulta: TFloatField
      FieldName = 'Multa'
      DisplayFormat = '0.00'
    end
    object ParcelaJuros: TFloatField
      FieldName = 'Juros'
      DisplayFormat = '0.00'
    end
    object ParcelaDesconto: TFloatField
      FieldName = 'Desconto'
      DisplayFormat = '0.00'
    end
    object ParcelaTotal: TFloatField
      FieldName = 'Total'
      DisplayFormat = '0.00'
    end
    object ParcelaPagamento: TStringField
      FieldName = 'Pagamento'
      EditMask = '00/00/0000'
      Size = 10
    end
    object ParcelaNome: TStringField
      FieldName = 'Nome'
      Size = 50
    end
    object Parcelacpf: TStringField
      FieldName = 'cpf'
      EditMask = '000.000.000-00'
      Size = 14
    end
    object ParcelaPago: TStringField
      FieldName = 'Pago'
      Size = 8
    end
    object ParcelaPedido: TStringField
      FieldName = 'Pedido'
      Size = 9
    end
  end
  object DSPARCELA: TDataSource
    DataSet = Parcela
    Left = 135
    Top = 304
  end
  object Consulta: TADOQuery
    Connection = Sistema
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from produto')
    Left = 304
    Top = 128
  end
  object DSCONSULTA: TDataSource
    DataSet = Consulta
    Left = 399
    Top = 128
  end
  object DSCOMANDO: TDataSource
    DataSet = Comando
    Left = 399
    Top = 72
  end
  object Comando2: TADOQuery
    Connection = Sistema
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from produto')
    Left = 304
    Top = 192
    object Comando2Id: TIntegerField
      FieldName = 'Id'
    end
    object Comando2Codigo: TStringField
      FieldName = 'Codigo'
      Size = 5
    end
    object Comando2Descricao: TStringField
      FieldName = 'Descricao'
      Size = 50
    end
    object Comando2Marca: TStringField
      FieldName = 'Marca'
      Size = 40
    end
    object Comando2Modelo: TStringField
      FieldName = 'Modelo'
      Size = 40
    end
    object Comando2Cor: TStringField
      FieldName = 'Cor'
      Size = 30
    end
    object Comando2Datareajuste: TStringField
      FieldName = 'Datareajuste'
      Size = 10
    end
    object Comando2Venda: TFloatField
      FieldName = 'Venda'
      DisplayFormat = '0.00'
    end
    object Comando2Ativo: TStringField
      FieldName = 'Ativo'
      Size = 10
    end
    object Comando2Reajuste: TStringField
      FieldName = 'Reajuste'
      Size = 10
    end
    object Comando2Categoria: TStringField
      FieldName = 'Categoria'
      Size = 30
    end
  end
  object DSCOMANDO2: TDataSource
    DataSet = Comando2
    Left = 399
    Top = 192
  end
  object Parcelacliente: TADOQuery
    Connection = Sistema
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from parcelas')
    Left = 304
    Top = 248
    object Parcelaclienteid: TIntegerField
      FieldName = 'id'
    end
    object ParcelaclienteCodigocliente: TStringField
      FieldName = 'Codigocliente'
      Size = 5
    end
    object ParcelaclienteCodigovenda: TStringField
      FieldName = 'Codigovenda'
      Size = 5
    end
    object ParcelaclienteVencimento: TStringField
      FieldName = 'Vencimento'
      EditMask = '00/00/0000'
      Size = 10
    end
    object ParcelaclienteParcela: TIntegerField
      FieldName = 'Parcela'
    end
    object ParcelaclienteValor: TFloatField
      FieldName = 'Valor'
      DisplayFormat = '0.00'
    end
    object ParcelaclienteMulta: TFloatField
      FieldName = 'Multa'
      DisplayFormat = '0.00'
    end
    object ParcelaclienteJuros: TFloatField
      FieldName = 'Juros'
      DisplayFormat = '0.00'
    end
    object ParcelaclienteDesconto: TFloatField
      FieldName = 'Desconto'
      DisplayFormat = '0.00'
    end
    object ParcelaclienteTotal: TFloatField
      FieldName = 'Total'
      DisplayFormat = '0.00'
    end
    object ParcelaclientePagamento: TStringField
      FieldName = 'Pagamento'
      EditMask = '00/00/0000'
      Size = 10
    end
    object ParcelaclienteNome: TStringField
      FieldName = 'Nome'
      Size = 50
    end
    object Parcelaclientecpf: TStringField
      FieldName = 'cpf'
      EditMask = '000.000.000-00'
      Size = 14
    end
    object ParcelaclientePago: TStringField
      FieldName = 'Pago'
      Size = 8
    end
    object ParcelaclientePedido: TStringField
      FieldName = 'Pedido'
      Size = 9
    end
  end
  object DSPARCELACLIENTE: TDataSource
    DataSet = Parcelacliente
    Left = 399
    Top = 248
  end
  object ComandoCliente: TADOQuery
    Connection = Sistema
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *  from CLIENTE order by nome')
    Left = 304
    Top = 312
    object ComandoClienteId: TIntegerField
      FieldName = 'Id'
    end
    object ComandoClienteCodigo: TStringField
      FieldName = 'Codigo'
      Size = 5
    end
    object ComandoClienteNome: TStringField
      FieldName = 'Nome'
      Size = 50
    end
    object ComandoClienteConjuje: TStringField
      FieldName = 'Conjuje'
      Size = 50
    end
    object ComandoClienteEndereco: TStringField
      FieldName = 'Endereco'
      Size = 50
    end
    object ComandoClienteCidade: TStringField
      FieldName = 'Cidade'
      Size = 40
    end
    object ComandoClienteBairro: TStringField
      FieldName = 'Bairro'
      Size = 30
    end
    object ComandoClienteTelefone: TStringField
      FieldName = 'Telefone'
      Size = 14
    end
    object ComandoClienteCelular: TStringField
      FieldName = 'Celular'
      Size = 14
    end
    object ComandoClienteEmpresa: TStringField
      FieldName = 'Empresa'
      Size = 50
    end
    object ComandoClienteEnderecotrabalho: TStringField
      FieldName = 'Enderecotrabalho'
      Size = 50
    end
    object ComandoClienteCidadetrabalho: TStringField
      FieldName = 'Cidadetrabalho'
      Size = 40
    end
    object ComandoClienteBairrotrabalho: TStringField
      FieldName = 'Bairrotrabalho'
      Size = 30
    end
    object ComandoClienteRG: TStringField
      FieldName = 'RG'
      Size = 30
    end
    object ComandoClienteIdentificacao: TStringField
      FieldName = 'Identificacao'
      Size = 40
    end
    object ComandoClienteRemuneracao: TFloatField
      FieldName = 'Remuneracao'
    end
    object ComandoClienteDependente: TStringField
      FieldName = 'Dependente'
      Size = 2
    end
    object ComandoClienteNomedependente: TStringField
      FieldName = 'Nomedependente'
      Size = 50
    end
    object ComandoClienteReferencia: TStringField
      FieldName = 'Referencia'
      Size = 50
    end
    object ComandoClienteNascimento: TStringField
      FieldName = 'Nascimento'
      Size = 10
    end
    object ComandoClienteProfissao: TStringField
      FieldName = 'Profissao'
      Size = 40
    end
    object ComandoClienteApelido: TStringField
      FieldName = 'Apelido'
      Size = 30
    end
    object ComandoClienteLimitecompra: TFloatField
      FieldName = 'Limitecompra'
    end
    object ComandoClienteEstadocivil: TStringField
      FieldName = 'Estadocivil'
    end
    object ComandoClienteEstado: TStringField
      FieldName = 'Estado'
      Size = 2
    end
    object ComandoClienteSexo: TStringField
      FieldName = 'Sexo'
      Size = 1
    end
    object ComandoClienteNUMERO: TStringField
      FieldName = 'NUMERO'
      Size = 4
    end
    object ComandoClienteTELEFONETRABALHO: TStringField
      FieldName = 'TELEFONETRABALHO'
      Size = 14
    end
    object ComandoClienteEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 40
    end
    object ComandoClienteCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 30
    end
    object ComandoClienteNUMEROTRABALHO: TStringField
      FieldName = 'NUMEROTRABALHO'
      Size = 4
    end
    object ComandoClienteUFTRABALHO: TStringField
      FieldName = 'UFTRABALHO'
      Size = 2
    end
    object ComandoClienteREFERENCIAENDERECO: TStringField
      FieldName = 'REFERENCIAENDERECO'
      Size = 30
    end
    object ComandoClienteCEP: TStringField
      FieldName = 'CEP'
      Size = 9
    end
    object ComandoClienteCPF: TStringField
      DisplayWidth = 14
      FieldName = 'CPF'
      EditMask = '000.000.000-00'
      Size = 14
    end
    object ComandoClienteativo: TStringField
      FieldName = 'ativo'
      Size = 10
    end
  end
  object DSCOMANDOCLIENTE: TDataSource
    DataSet = ComandoCliente
    Left = 399
    Top = 312
  end
  object Query: TADOQuery
    Connection = Sistema
    Parameters = <>
    Left = 528
    Top = 176
  end
  object ComandoVenda: TADOQuery
    Connection = Sistema
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *  from venda')
    Left = 520
    Top = 40
    object ComandoVendaid: TIntegerField
      FieldName = 'id'
    end
    object ComandoVendaNome: TStringField
      FieldName = 'Nome'
      Size = 50
    end
    object ComandoVendaParcelas: TIntegerField
      FieldName = 'Parcelas'
    end
    object ComandoVendaDias: TIntegerField
      FieldName = 'Dias'
    end
    object ComandoVendaDatavenda: TStringField
      FieldName = 'Datavenda'
      Size = 10
    end
    object ComandoVendacpf: TStringField
      FieldName = 'cpf'
      EditMask = '000.000.000-00'
      Size = 14
    end
    object ComandoVendaendereco: TStringField
      FieldName = 'endereco'
      Size = 50
    end
    object ComandoVendabairro: TStringField
      FieldName = 'bairro'
      Size = 30
    end
    object ComandoVendacidade: TStringField
      FieldName = 'cidade'
      Size = 40
    end
    object ComandoVendaestado: TStringField
      FieldName = 'estado'
      Size = 2
    end
    object ComandoVendatelefone: TStringField
      FieldName = 'telefone'
      Size = 14
    end
    object ComandoVendacelular: TStringField
      FieldName = 'celular'
      Size = 14
    end
    object ComandoVendanumero: TStringField
      FieldName = 'numero'
      Size = 4
    end
    object ComandoVendavalorvenda: TFloatField
      FieldName = 'valorvenda'
      DisplayFormat = '0.00'
    end
    object ComandoVendaCodcliente: TStringField
      FieldName = 'Codcliente'
      Size = 5
    end
    object ComandoVendaimprimir: TStringField
      FieldName = 'imprimir'
      Size = 1
    end
    object ComandoVendaPedido: TStringField
      FieldName = 'Pedido'
      Size = 9
    end
  end
  object DSComandoVenda: TDataSource
    DataSet = ComandoVenda
    Left = 615
    Top = 40
  end
  object ComandoDetalhe: TADOQuery
    Connection = Sistema
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *  from detalhevenda')
    Left = 520
    Top = 96
    object ComandoDetalheid: TIntegerField
      FieldName = 'id'
    end
    object ComandoDetalheCodigoproduto: TStringField
      FieldName = 'Codigoproduto'
      Size = 5
    end
    object ComandoDetalheNomeproduto: TStringField
      FieldName = 'Nomeproduto'
      Size = 50
    end
    object ComandoDetalheQuantidade: TIntegerField
      FieldName = 'Quantidade'
    end
    object ComandoDetalheValor: TFloatField
      FieldName = 'Valor'
      DisplayFormat = '0.00'
    end
    object ComandoDetalhecpf: TStringField
      FieldName = 'cpf'
      EditMask = '000.000.000-00'
      Size = 14
    end
    object ComandoDetalheMarca: TStringField
      FieldName = 'Marca'
      Size = 40
    end
    object ComandoDetalheModelo: TStringField
      FieldName = 'Modelo'
      Size = 40
    end
    object ComandoDetalheCor: TStringField
      FieldName = 'Cor'
      Size = 30
    end
    object ComandoDetalhetotal: TFloatField
      FieldName = 'total'
      DisplayFormat = '0.00'
    end
    object ComandoDetalhePedido: TStringField
      FieldName = 'Pedido'
      Size = 9
    end
    object ComandoDetalhedatavenda: TStringField
      FieldName = 'datavenda'
      Size = 10
    end
  end
  object DSComandodetalhe: TDataSource
    DataSet = ComandoDetalhe
    Left = 615
    Top = 96
  end
  object Ativador: TADOQuery
    Connection = Sistema
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from ativador')
    Left = 56
    Top = 368
  end
  object DSCartao: TDataSource
    DataSet = Cartao
    Left = 655
    Top = 304
  end
  object DSParcelacartao: TDataSource
    DataSet = Parcelacartao
    Left = 655
    Top = 360
  end
  object Cartao: TADOQuery
    Connection = Sistema
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from cartao')
    Left = 576
    Top = 304
    object CartaoId: TIntegerField
      FieldName = 'Id'
    end
    object CartaoCodigo: TStringField
      FieldName = 'Codigo'
      Size = 5
    end
    object Cartaobanco: TStringField
      FieldName = 'banco'
      Size = 50
    end
    object Cartaodatavenda: TStringField
      FieldName = 'datavenda'
      EditMask = '00/00/0000'
      Size = 10
    end
    object Cartaoautorizacao: TStringField
      FieldName = 'autorizacao'
      Size = 30
    end
    object Cartaovalor: TFloatField
      FieldName = 'valor'
      DisplayFormat = '0.00'
    end
    object Cartaovalorliquido: TFloatField
      FieldName = 'valorliquido'
      DisplayFormat = '0.00'
    end
    object Cartaotaxa: TFloatField
      FieldName = 'taxa'
    end
    object Cartaovalortaxa: TFloatField
      FieldName = 'valortaxa'
      DisplayFormat = '0.00'
    end
    object Cartaotipo: TStringField
      FieldName = 'tipo'
      Size = 7
    end
    object CartaoObservacao: TStringField
      FieldName = 'Observacao'
      Size = 50
    end
  end
  object Parcelacartao: TADOQuery
    Connection = Sistema
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select * from parcelacartao where datarecebimento <= '#39'31/10/2014' +
        #39)
    Left = 576
    Top = 360
    object ParcelacartaoId: TIntegerField
      FieldName = 'Id'
    end
    object ParcelacartaoCodigo: TStringField
      FieldName = 'Codigo'
      Size = 5
    end
    object Parcelacartaobanco: TStringField
      FieldName = 'banco'
      Size = 50
    end
    object Parcelacartaoparcela: TIntegerField
      FieldName = 'parcela'
    end
    object Parcelacartaodatavenda: TStringField
      FieldName = 'datavenda'
      EditMask = '00/00/0000'
      Size = 10
    end
    object Parcelacartaoautorizacao: TStringField
      FieldName = 'autorizacao'
      Size = 30
    end
    object Parcelacartaovalor: TFloatField
      FieldName = 'valor'
      DisplayFormat = '0.00'
    end
    object Parcelacartaodatarecebimento: TDateTimeField
      FieldName = 'datarecebimento'
      EditMask = '00/00/0000'
    end
    object Parcelacartaotipo: TStringField
      FieldName = 'tipo'
      Size = 7
    end
    object ParcelacartaoObservacao: TStringField
      FieldName = 'Observacao'
      Size = 50
    end
  end
  object DSbandeira: TDataSource
    DataSet = bandeira
    Left = 655
    Top = 256
  end
  object bandeira: TADOQuery
    Connection = Sistema
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from bandeira')
    Left = 576
    Top = 256
    object bandeiraDescricao: TStringField
      FieldName = 'Descricao'
      Size = 50
    end
    object bandeirataxa: TFloatField
      FieldName = 'taxa'
    end
  end
  object comandoproduto: TADOQuery
    Connection = Sistema
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *  from PRODUTO order by DESCRICAO')
    Left = 304
    Top = 368
  end
  object DSCOMANDOPRODUTO: TDataSource
    DataSet = comandoproduto
    Left = 399
    Top = 368
  end
end
